home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 34 / 034.d81 / moonlight zone (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  9KB  |  211 lines
  1. 14 s=54272:v=53248:tm=500:sc=0:bl=0:fl=50:hs=0:p=200:q=202
  2. 20 pokev+21,.:gosub800
  3. 22 p$="":a$="[214][214][214][214]    [214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214][214][214]    [214][214]      [214][214][214][214][214][214][214][214][214][214]    [214][214][214][214]"
  4. 23 b$="     [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]    [214][214][214][214]    [214][214][214][214][214][214][214][214]    [214][214][214][214][214][214]    [214][214]    "
  5. 24 c$="[214][214][214][214]    [214][214][214][214]    [214][214][214][214]    [214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]        [214][214][214]"
  6. 25 d$="[214][214][214][214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214]    [214][214][214][214][214][214]    [214][214][214][214][214][214][214][214][214][214][214][214]    [214][214][214][214]   "
  7. 26 forx=50880to51116:reada:pokex,a:next
  8. 28 forx=49152to49528:reada:pokex,a:next
  9. 30 forx=12800to13374:reada:pokex,a:next
  10. 32 p$=a$+b$+c$+d$
  11. 34 pokev+28,128:pokev+37,1:pokev+38,8:pokev+46,14:pokev+39,2:pokev+40,7
  12. 35 pokev+41,14:pokev+42,5:pokev+43,8:poke v+44,15:pokev+45,1
  13. 36 forx=2040to2046:pokex,202:next:poke2047,200:pokev+16,84
  14. 37 pokev+0,30:pokev+1,20:pokev+2,160:pokev+3,20:pokev+4,40:pokev+5,20
  15. 38 pokev+10,30:pokev+11,250:pokev+6,100:pokev+7,250:pokev+8,10:pokev+9,250
  16. 39 pokev+12,40:pokev+13,250:pokev+14,160:pokev+15,130:pokev+27,127
  17. 40 s=50433:pokes,3:pokes+1,2:pokes+2,0:pokes+3,3:pokes+4,252:pokes+5,1
  18. 41 pokes+6,0:pokes+7,255:pokes+8,0:pokes+9,254:pokes+10,2
  19. 42 pokes+11,254:pokes+12,254:pokes+13,255:pokes+14,0:pokes+15,0
  20. 44 w1=peek(v+30):w2=peek(v+31)
  21. 50 rem    playing screen
  22. 52 print"[147]   t h e  m o o n l i g h t  z o n e   "
  23. 54 print"[158] time         'q' to quit[158]    blops     "
  24. 56 print"[158][214]floor              high score        [146][158][214]"
  25. 58 print"[214]";mid$(p$,int(215*rnd(9)+1),37);"[214]"
  26. 60 forx=0to3:fory=0to3:print"[214]"tab(38)"[214]":nexty
  27. 61 print"[214]";mid$(p$,int(215*rnd(9)+1),37);"[214]":nextx
  28. 62 print"[158]"tab(6);tm;tab(35);bl:print""tab(7);fl;tab(31);hs
  29. 63 pokev+21,255:fort=0to1000:next
  30. 64 poke50688,255:poke50432,255:sys51104:poke2047,199
  31. 65 gosub100:if(mm)then150
  32. 66 geta$:ifa$="[209]"ora$="q"then61005
  33. 70 q=q+1:ifq=208thenq=202
  34. 74 gosub100:if(mm)then150
  35. 76 forx=2040to2046:pokex,q:next
  36. 77 gosub100:if(mm)then150
  37. 79 w1=peek(v+30):ifw1>127then200
  38. 81 gosub100:if(mm)then150
  39. 82 w2=peek(v+31):ifw2>127then200
  40. 83 gosub100:if(mm)then150
  41. 85 tm=tm-1:print"[158]"tab(6)"     ":print""tab(6);tm:iftm=0then300
  42. 86 gosub100:if(mm)then150
  43. 90 goto65
  44. 100 mm=.:poke2047,200:if(peek(56320)and15)=15thenpoke50447,0:poke50688,128:return
  45. 101 jy=peek(56320)and15:ifpeek(198)<>0thengetag$:ifag$="q"then61000
  46. 102 if(7eorjy)<>15thenpoke50447,1:poke50688,128:ms=-1
  47. 104 if(11eorjy)<>15thenpoke50447,255:poke50688,128:ms=-1
  48. 106 if(13eorjy)<>15thenmm=-1
  49. 108 poke2047,201
  50. 110 return
  51. 149 rem    going down
  52. 150 poke50447,0:poke50688,128:poke49522,3:u=0
  53. 152 sys49152:u=u+1:ifu=5then160
  54. 153 w1=peek(v+30):ifw1and128then200
  55. 154 w2=peek(v+31):ifw2and128then200
  56. 156 goto152
  57. 160 print""
  58. 161 print"[214]";mid$(p$,int(215*rnd(9)+1),37);"[214]"
  59. 162 fl=fl-1:print""tab(7)"   ":print""tab(7);fl:iffl=1then320
  60. 165 goto70
  61. 199 rem    collisions
  62. 200 poke50432,0:forx=2040to2046:pokex,208:next
  63. 202 s=54272:forx=0to24:pokes+x,0:next
  64. 204 pokes+24,15:pokes+5,80:pokes+6,243:pokes+3,4:pokes+4,65
  65. 206 forx=20to140step5:pokes+1,x:next
  66. 207 pokes+4,64:forx=0to50:next:pokes+4,64
  67. 208 forx=0to24:pokes+x,0:next
  68. 210 pokes+24,143:pokes+5,16:pokes+19,16:pokes+6,252:pokes+20,249
  69. 212 pokes+4,21:pokes+18,17:pokes+1,68:pokes+15,42:forx=0to200:next
  70. 214 pokes+24,20:pokes+18,16:forx=0to400:next:forx=0to24:pokes+x,0:next
  71. 218 fl=fl+5:bl=bl+1:ifbl=5then370
  72. 220 print"[147]":pokev+21,0:goto36
  73. 299 rem    time runs out
  74. 300 poke50432,127:print""tab(10)"sorry..time ran out."
  75. 302 gosub500:sc=1000-(50*bl)-(fl*10):goto400
  76. 319 rem    first floor
  77. 320 poke50432,127:print"[159]":printtab(5)"congratulations! you escaped"
  78. 322 gosub500:sc=1000+(2*tm)-(50*bl):goto400
  79. 369 rem    blopped
  80. 370 print"[158]5"
  81. 371 poke50432,127:print"[159]"
  82. 372 printtab(2)"sorry..you were blopped five times!"
  83. 374 gosub500:sc=750-(fl*10):ifsc<0thensc=0:goto400
  84. 399 rem    game over
  85. 400 print"[147]":pokev+21,127:forx=2040to2046:pokex,202:next:q=202
  86. 402 print"[159]"tab(11)"g a m e  o v e r":print:print:print:print
  87. 404 printtab(14)"score"sc:print:ifsc>hsthenhs=sc
  88. 405 printtab(14)"high score"hs
  89. 406 print""tab(11)"play again  y or n"
  90. 408 :
  91. 410 getm$:ifm$=""then416
  92. 412 ifm$="y"orm$="[217]"then420
  93. 414 ifm$="n"orm$="[206]"then60000
  94. 415 goto410
  95. 416 q=q+1:ifq=208thenq=202
  96. 417 forx=2040to2046:pokex,q:next:goto410
  97. 420 sc=0:tm=500:fl=50:bl=0:print"[147]":pokev+21,0:poke50432,0:goto36
  98. 499 rem    music
  99. 500 restore
  100. 502 forl=stos+24:pokel,0:next:pokes+5,9:pokes+6,0:pokes+24,15
  101. 504 readhf,lf,dr:ifhf=0thenreturn
  102. 506 pokes+1,hf:pokes,lf:pokes+4,33:fort=1todr:next
  103. 508 pokes+4,32:fort=1to50:next
  104. 510 goto504
  105. 512 data 44,193,250,63,75,100,56,99,100,59,190,100,53,57,100
  106. 514 data 63,75,100,56,99,100,59,190,100,53,57,100
  107. 516 data 63,75,100,56,99,100,59,190,100,53,57,100
  108. 518 data 63,75,100,56,99,100,59,190,100,53,57,100
  109. 520 data 44,193,250,84,125,1000,0,0,0
  110. 799 rem    title
  111. 800 print"[147]"chr$(142);:poke53281,0:poke53280,0
  112. 802 fort=0to100:x=int(1000*rnd(9)+1024):pokex,46:next
  113. 803 print"           loadstar presents:"
  114. 804 print"[158]"tab(17)"t h e":print:printtab(11)"m o o n l i g h t":print
  115. 806 printtab(10)"[175][175][175][175][175]"tab(25)"[207][183][183][183][183]":printtab(14)"[206]"tab(25)"[180]"
  116. 808 printtab(13)"[206]  [207][183][208]"tab(25)"[207][183][183]"
  117. 810 printtab(12)"[206]   [180] [170][170][205]  [180] [180]"
  118. 812 printtab(11)"[206]    [180] [170][170] [205] [180] [204][175][175][175]"
  119. 814 printtab(10)"[206]     [204][175][186][170]  [205][180]":printtab(9)"[206]":printtab(9)"[183][183][183][183][183][183]"
  120. 816 print""tab(15)"[159]by jc hilty"
  121. 817 printtab(12)"(c) copyright 1987"
  122. 818 gosub500
  123. 820 print""tab(7)"[158]please wait..reading data":return
  124. 1000 rem    sprite motion
  125. 1002 data 169,255,45,0,198,240,16,169,0,141,0,198,162,21,189,0
  126. 1003 data 197,157,0,198,202,208,247,162,1,169,1,141,80,197,173,80,197
  127. 1004 data 45,0,197,240,3,76,243,198,232,232,14,80,197,208,238,76,49,234
  128. 1006 data 169,0,29,0,197,208,3,76,97,199,169,128,61
  129. 1007 data 0,197,240,48,254,0,198,208,40,222,255,207,76,144,199,80
  130. 1008 data 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76
  131. 1009 data 43,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0
  132. 1010 data 198,76,97,199,222,0,198,208,40,254,255,207,208,29,173,80
  133. 1011 data 197,45,16,208,208,12,173,16,208,13,80,197,141,16,208,76
  134. 1012 data 91,199,173,16,208,77,80,197,141,16,208,189,0,197,157,0
  135. 1013 data 198,169,0,232,29,0,197,208,3,76,140,199,169,128,61,0
  136. 1014 data 197,240,11,254,0,198,208,20,222,255,207,76,134,199,222,0
  137. 1015 data 198,208,9,254,255,207,189,0,197,157,0,198,202,76,233,198
  138. 1016 data 169,255,221,255,207,240,3,76,43,199,173,80,197,76,17,199
  139. 1017 data 120,169,192,141,20,3,169,198,141,21,3,88,96
  140. 1018 rem    screen movement
  141. 1019 data 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
  142. 1020 data 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
  143. 1021 data 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204,116
  144. 1022 data 193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200,204
  145. 1023 data 116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104,145
  146. 1024 data 90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104,76
  147. 1025 data 111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116,193
  148. 1026 data 200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136,169
  149. 1027 data 32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
  150. 1028 data 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
  151. 1029 data 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
  152. 1030 data 177,92,32,48,193,145,92,104,145,90,32,5